REM <<      AmigaBasic        >>  
REM << Find Ptrs to BitPlanes >>
REM << Carolyn Scheppner  CBM >>

depth = 5
x = 320
y = 200

SCREEN 2,x,y,depth,1
WINDOW 2,"TEST1",,15,2

sWindow&   = WINDOW(7)
sScreen&   = PEEKL(sWindow& + 46)
sViewPort& = sScreen& + 44
sRastPort& = sScreen& + 84
PRINT "Ptr to RastPort structure ="sRastPort&
sColorMap& = PEEKL(sViewPort& + 4)
colorTab&  = PEEKL(sColorMap& + 4)
sBitMap& = PEEKL(sRastPort& + 4)
PRINT "Ptr to BitMap structure ="sBitMap&
FOR k = 0 TO depth-1
  bPlane&(k) = PEEKL(sBitMap&+8+(4*k))
  PRINT "Ptr to BitPlane"k" ="bPlane&(k)
NEXT

REM << Test - Random Poke to the BitPlanes >>
FOR j = 3000 TO 3159
  FOR k = 0 TO depth-1
    POKE bPlane&(k)+j, INT(255*RND)
  NEXT  
NEXT

FOR de = 1 TO 5000 : NEXT
WINDOW CLOSE 2
SCREEN CLOSE 2
END